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DIRECTORY 

CodeDefs: FROM "codedefs" USING [Address, Calls, CCIndex, Driver, DriverNotify, Expression. Final, Fl 
♦*ow, FlowExpression. Jumps. LabelCCIndex. Lexeme, OutCode, PeepholeQ, PeepholeU, PeepholeZ, Stack, Sta 
**tement, Store], 

CompilerDefs: FROM "compilerdef s" USING [MakeSwappable]. 

OpTableDefs: FROM "optabledef s" USING [OpTable], 

PSADefs: FROM "p5adefs" USING [Cmodule]. 

SymDefs: FROM "symdefs" USING [Bytelndex, ContextLevel , CTXIndex, ISEIndex, recordCSEIndex] . 

TableDefs: FROM "tabledefs" USING [AddNotify. DropNotify], 

TreeDefs: FROM "treedefs"; 

DEFINITIONS FROM CodeDefs; 

Code: PROGRAM 

IMPORTS CodeDefs. CompilerDefs. OpTableDefs, P5ADefs, TableDefs 
EXPORTS CompilerDefs, PSADefs - 
PUBLIC BEGIN 

-- the following variables are shared among the code generation modules 

curctxl vl : SymDefs .ContextLevel ; 

codeptr: CCIndex; 

curbodyretlabel : LabelCCIndex; 

mainBody: BOOLEAN; 

ZEROlexeme: word literal Lexeme; 

acstack: INTEGER; 

stking: BOOLEAN; 

firstcaseselread: BOOLEAN; 

mwcaseseltlex: se Lexeme; 

fileindex: SymDefs .Bytelndex; 

catchcount: CARDINAL; 

catchout record: SymDefs. recordCSEIndex; 

tempcontext: SymDefs. CTXIndex; 

tempstart, framesz, cfs: CARDINAL; 

actenable: LabelCCIndex; 

xtracting: BOOLEAN; 

xtractlex: Lexeme; 

xtractsei : SymDefs. ISEIndex; 

ACStackOverflow: SIGNAL ■ CODE; 
ACStackUnderflow: SIGNAL ■ CODE; 
StackNotEmptyAtStatement: SIGNAL • CODE; 
CodeNotlmplemented: SIGNAL « CODE; 
DeletingUnreachableCode: SIGNAL « CODE; 
CodePassInconsistancy: SIGNAL » CODE; 
CodePassError: ERROR [n: CARDINAL]- CODE; 

PSmodule: PROCEDURE ■ 

BEGIN -- starts the code generation pass 

Tab leDefs.AddNotify[CodeDefs. DriverNotify]; 

P5ADefs.Cmodule[]; 

TableDefs.DropNotify[CodeDefs. DriverNotify]; RETURN 

END; 

PSError: PROCEDURE [n: CARDINAL] - 
BEGIN 

ERROR CodePassError[n] 
END; 

BEGIN OPEN CompilerDefs; 
MakeSwappable [OpTableDefs. OpTable, pass5]; 
MakeSwappable[Driver, pass5]; 
MakeSwappable[Address. pass5]; 
MakeSwappable[Stack, pass6]; 
MakeSwappable[Flow, pass6]; 
MakeSwappable[Store. pass6]; 
MakeSwappable[Expression, pass5]; 
MakeSwappable[FlowExpression. pass5]; 
MakeSwappable[Statement, pass5]; 
MakeSwappable[Cal 1 s, pass6]; 
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MakeSwappab1e[0utCocle, passS]; 
MakeSwappabl8[Peepho1eQ. passS]; 
MakeSwappab1e[Pe0pho1eU, passS]; 
MakeSwappabl e[ Peep hoi eZ, pass5]; 
MakeSwappablefjumps, pass5]; 
MakeSwappabl8[Final « pass5]; 
END; 

END... 



